home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / os2 / ftree11a.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1996-10-30  |  2KB  |  60 lines
  1. /* FamilyTree installation */
  2. SAY 'FamilyTree Installation'
  3. SAY
  4. SAY '    (d)eutsch (e)nglish d(u)tch (f)rench ?'
  5.  
  6. CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  7. CALL SysLoadFuncs
  8.  
  9. name="Family Tree 1.1a"
  10. language=SysGetKey(NOECHO)
  11.  
  12. PARSE UPPER VAR language language
  13. SAY
  14.  
  15. /* Do a german install */
  16. IF language='D' THEN DO
  17.    SAY 'Erzeuge Onlinehilfe !'
  18.    '@copy German.hlp FTree.hlp >nul'
  19.    SAY 'Erzeuge Sprachresource !'
  20.    '@copy German.dll FTree.dll >nul'
  21.    SAY 'Erzeuge Programmobjekt !'
  22.    IF 0=SysCreateObject("WPProgram",name,"<WP_DESKTOP>","EXENAME="||DIRECTORY()||"\ftree.exe;OBJECTID=<FTREE>",replace)
  23.       THEN SAY '*** Fehler beim Erzeugen des Programmobjektes!'
  24.    EXIT
  25.    END
  26.  
  27. /* Do a dutch install */
  28. IF language='U' THEN DO
  29.    SAY 'Creating english online-help !'
  30.    '@copy English.hlp FTree.hlp >nul'
  31.    SAY 'Creating dutch language-resource !'
  32.    '@copy Dutch.dll FTree.dll >nul'
  33.    SAY 'Creating program object !'
  34.    IF 0=SysCreateObject("WPProgram",name,"<WP_DESKTOP>","EXENAME="||DIRECTORY()||"\ftree.exe;OBJECTID=<FTREE>",replace)
  35.       THEN SAY '*** Error creating program object !'
  36.    EXIT
  37.    END
  38.  
  39. /* Do a french install */
  40. IF language='F' THEN DO
  41.    SAY 'Creating english online-help !'
  42.    '@copy English.hlp FTree.hlp >nul'
  43.    SAY 'Creating french language-resource !'
  44.    '@copy French.dll FTree.dll >nul'
  45.    SAY 'Creating program object !'
  46.    IF 0=SysCreateObject("WPProgram",name,"<WP_DESKTOP>","EXENAME="||DIRECTORY()||"\ftree.exe;OBJECTID=<FTREE>",replace)
  47.       THEN SAY '*** Error creating program object !'
  48.    EXIT
  49.    END
  50.  
  51. /* Do an english install */
  52.    SAY 'Creating online-help !'
  53.    '@copy English.hlp FTree.hlp >nul'
  54.    SAY 'Creating language-resource !'
  55.    '@copy English.dll FTree.dll >nul'
  56.    SAY 'Creating program object !'
  57.    IF 0=SysCreateObject("WPProgram",name,"<WP_DESKTOP>","EXENAME="||DIRECTORY()||"\ftree.exe;OBJECTID=<FTREE>",replace)
  58.       THEN SAY '*** Error creating program object !'
  59.    EXIT
  60.